R Configuration
Our R Configuration is as follows:
sessionInfo(package=NULL)
Data
Our original data is sourced from Data.World. This data includes visits by National Parks from 1904-2016. We joined this data with population and gender breakdown by state from the US Census Data. Finally, we joined Latitude and Longitude points for each of the 50 U.S. States, as well as Washington D.C.
Initial Analysis
Our initial analysis was performed in Tableau.
We began by creating a boxplot that showed how national park visits differed by operating region. The below image shows how the National Parks Service breaks its parks into different regions:
The boxplot shows:
Boxplot: Regions vs. Visits
Scatterplot: Visits vs. Years
With that info in mind, we created a scatterplot of visits through the years, colored by regions. These trends were then used to create our first Interesting Visualization, which show visit growth through the years.
Barchart: Region & State by Visits
Additionally, we decided to break visits down by both state and region, and create a window average calculation to find the average number of visits between regions, and how each state compared.
Barchart: Park Name vs. Visits
Moving forward, we decided to try and analyze which parks had the highest numbers of visits over this time period. We created the following visualization, and then selected all parks with visits greater than 100 million into a new set. This set was then used to create our second Interesting Visualization.
Join: State vs. Visits, Colored by Male-Female Ratio
We joined data from the U.S. Census that included the number of males, females, and total population for each State. Using this, we created a calculated field that gives the ratio of males to females in each state. The following visualization attempts to find a trend in visits by gender breakdown, though none is immediately obvious:
Data.World Pull and ETL Operations
With our Tableau analysis complete, we pulled the data into R Studio.
Data.World Pulls
First, our initial National Parks Visits data was pulled:
source("../01 Data/prETLNatVisPull.R")
Next, the Census Data is pulled:
source("../01 Data/censusPull.R")
Finally, the Latitude and Longitude information is pulled:
source("../01 Data/stateLatLongPull.R")
ETL
Our final task is to perform ETL operations. This includes the removal of blank data, as well as character formatting to better meet our needs for further visualization in R.
source("../01 Data/natVisETL.R")
The ETL script is available to view in “01 Data,” or as an image here.
Interesting Visualizations
1: Massive Success of “Mission 66”
Of note here: first, National Park visits actually grew during the Great Depression and Great Recession, indicating that visits to these parks aren’t considered discretionary spending. Additionally, it could be that a poor economy has consumers scrambling to find cheaper vacations, and National Parks fill that role. Lastly, stress during difficult economic times may spur people to want to be outdoors and enjoy nature.
However, the most interesting aspect of this is the massive growth experienced in National Parks visits during “Mission 66.” Mission 66 involved a massive amount of infrastructure creation to make parks more accessible. In addition to roads and trails, it also funded the creation of camping and housing sites, and also an advertising campaign that promoted the natural beauty of these parks to citizens across the country.
2: Most Popular States With Most Popular Parks
This visualization highlights states with parks that have combined visits between 1904-2016 greater than 100 Million, and then lists the single most visited park within that state (in some cases, such as California, there are multiple parks with visits greater than 100 Million).
3: Visits to Population Ratio
This visualization shows visits by state, filtered by year, and colored by the ratio of visits to state population. The goal here is to identify states or areas that bring in vastly more visitors than their populations. Washington, D.C., a city with a population of approximately 670,000 people, draws almost 55 times its population in visitors to its National Parks and Monuments. Another state where this occurs is Wyoming, which draws nearly 17 times its population in visits.
Shiny Deployment
We took the .CSV files produced in our above ETL and Pull operations, and in turn uploaded them to Data.World. From there, our Shiny app uses SQL to query relevant data to create a variety of visualizations in R. Our Shiny deployment displays the steps taken to reach the interesting visualizations.
LS0tCnRpdGxlOiAiQW5hbHlzaXMgb2YgTmF0aW9uYWwgUGFya3MgU2VydmljZSBWaXNpdHMiCmF1dGhvcjogIkpvbmF0aGFuIEtpemVyLCBWaWN0b3IgQ2hlbiwgTGVvIFplbmcsIEtpc2hhbiBQYXRlbCIKb3V0cHV0OgogIGh0bWxfZG9jdW1lbnQ6CiAgICB0b2M6IHllcwogIGh0bWxfbm90ZWJvb2s6CiAgICB0b2M6IHllcwotLS0KCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQprbml0cjo6b3B0c19jaHVuayRzZXQoZWNobyA9IFRSVUUpCmBgYAo8Y2VudGVyPiFbXSguLi8wMCBEb2MvZ3JhbmRjYW55b24uanBnKTwvY2VudGVyPgoKCiMqKlIgQ29uZmlndXJhdGlvbioqCgpPdXIgUiBDb25maWd1cmF0aW9uIGlzIGFzIGZvbGxvd3M6CmBgYHtyIHNlc3Npb25JbmZvfQpzZXNzaW9uSW5mbyhwYWNrYWdlPU5VTEwpCmBgYAoKIyoqRGF0YSoqCk91ciBvcmlnaW5hbCBkYXRhIGlzIFtzb3VyY2VkIGZyb20gRGF0YS5Xb3JsZF0oaHR0cHM6Ly9kYXRhLndvcmxkL2luZm9ybThuL3VzLW5hdGlvbmFsLXBhcmtzLXZpc2l0YXRpb24tMTkwNC0yMDE2LXdpdGgtYm91bmRhcmllcykuIFRoaXMgZGF0YSBpbmNsdWRlcyB2aXNpdHMgYnkgTmF0aW9uYWwgUGFya3MgZnJvbSAxOTA0LTIwMTYuIFdlIGpvaW5lZCB0aGlzIGRhdGEgd2l0aCBwb3B1bGF0aW9uIGFuZCBnZW5kZXIgYnJlYWtkb3duIGJ5IHN0YXRlIGZyb20gdGhlIFVTIENlbnN1cyBEYXRhLiBGaW5hbGx5LCB3ZSBqb2luZWQgTGF0aXR1ZGUgYW5kIExvbmdpdHVkZSBwb2ludHMgZm9yIGVhY2ggb2YgdGhlIDUwIFUuUy4gU3RhdGVzLCBhcyB3ZWxsIGFzIFdhc2hpbmd0b24gRC5DLgoKIyoqSW5pdGlhbCBBbmFseXNpcyoqCk91ciBpbml0aWFsIGFuYWx5c2lzIHdhcyBwZXJmb3JtZWQgaW4gVGFibGVhdS4KCldlIGJlZ2FuIGJ5IGNyZWF0aW5nIGEgYm94cGxvdCB0aGF0IHNob3dlZCBob3cgbmF0aW9uYWwgcGFyayB2aXNpdHMgZGlmZmVyZWQgYnkgb3BlcmF0aW5nIHJlZ2lvbi4gVGhlIGJlbG93IGltYWdlIHNob3dzIGhvdyB0aGUgTmF0aW9uYWwgUGFya3MgU2VydmljZSBicmVha3MgaXRzIHBhcmtzIGludG8gZGlmZmVyZW50IHJlZ2lvbnM6Cgo8Y2VudGVyPiFbXSguLi8wMyBWaXN1YWxpemF0aW9ucy9uYXRwYXJrc29yZy5wbmcpPC9jZW50ZXI+CiAKVGhlIGJveHBsb3Qgc2hvd3M6CgojIyoqQm94cGxvdDogUmVnaW9ucyB2cy4gVmlzaXRzKioKPGNlbnRlcj4hW10oLi4vMDMgVmlzdWFsaXphdGlvbnMvVGFibGVhdUZpbmFsNi5wbmcpPC9jZW50ZXI+CgojIyoqU2NhdHRlcnBsb3Q6IFZpc2l0cyB2cy4gWWVhcnMqKgpXaXRoIHRoYXQgaW5mbyBpbiBtaW5kLCB3ZSBjcmVhdGVkIGEgc2NhdHRlcnBsb3Qgb2YgdmlzaXRzIHRocm91Z2ggdGhlIHllYXJzLCBjb2xvcmVkIGJ5IHJlZ2lvbnMuIFRoZXNlIHRyZW5kcyB3ZXJlIHRoZW4gdXNlZCB0byBjcmVhdGUgb3VyIGZpcnN0IEludGVyZXN0aW5nIFZpc3VhbGl6YXRpb24sIHdoaWNoIHNob3cgdmlzaXQgZ3Jvd3RoIHRocm91Z2ggdGhlIHllYXJzLgo8Y2VudGVyPiFbXSguLi8wMyBWaXN1YWxpemF0aW9ucy9UYWJsZWF1RmluYWw5LnBuZyk8L2NlbnRlcj4KCiMjKipCYXJjaGFydDogUmVnaW9uICYgU3RhdGUgYnkgVmlzaXRzKioKQWRkaXRpb25hbGx5LCB3ZSBkZWNpZGVkIHRvIGJyZWFrIHZpc2l0cyBkb3duIGJ5IGJvdGggc3RhdGUgYW5kIHJlZ2lvbiwgYW5kIGNyZWF0ZSBhIHdpbmRvdyBhdmVyYWdlIGNhbGN1bGF0aW9uIHRvIGZpbmQgdGhlIGF2ZXJhZ2UgbnVtYmVyIG9mIHZpc2l0cyBiZXR3ZWVuIHJlZ2lvbnMsIGFuZCBob3cgZWFjaCBzdGF0ZSBjb21wYXJlZC4KPGNlbnRlcj4hW10oLi4vMDMgVmlzdWFsaXphdGlvbnMvRmluYWxUYWJsZWF1Ny5wbmcpPC9jZW50ZXI+CgojIyoqQmFyY2hhcnQ6IFBhcmsgTmFtZSB2cy4gVmlzaXRzKioKTW92aW5nIGZvcndhcmQsIHdlIGRlY2lkZWQgdG8gdHJ5IGFuZCBhbmFseXplIHdoaWNoIHBhcmtzIGhhZCB0aGUgaGlnaGVzdCBudW1iZXJzIG9mIHZpc2l0cyBvdmVyIHRoaXMgdGltZSBwZXJpb2QuIFdlIGNyZWF0ZWQgdGhlIGZvbGxvd2luZyB2aXN1YWxpemF0aW9uLCBhbmQgdGhlbiBzZWxlY3RlZCBhbGwgcGFya3Mgd2l0aCB2aXNpdHMgZ3JlYXRlciB0aGFuIDEwMCBtaWxsaW9uIGludG8gYSBuZXcgc2V0LiBUaGlzIHNldCB3YXMgdGhlbiB1c2VkIHRvIGNyZWF0ZSBvdXIgc2Vjb25kIEludGVyZXN0aW5nIFZpc3VhbGl6YXRpb24uCjxjZW50ZXI+IVtdKC4uLzAzIFZpc3VhbGl6YXRpb25zL0ZpbmFsVGFibGVhdTIucG5nKTwvY2VudGVyPgoKIyMqKkpvaW46IFN0YXRlIHZzLiBWaXNpdHMsIENvbG9yZWQgYnkgTWFsZS1GZW1hbGUgUmF0aW8qKgpXZSBqb2luZWQgZGF0YSBmcm9tIHRoZSBVLlMuIENlbnN1cyB0aGF0IGluY2x1ZGVkIHRoZSBudW1iZXIgb2YgbWFsZXMsIGZlbWFsZXMsIGFuZCB0b3RhbCBwb3B1bGF0aW9uIGZvciBlYWNoIFN0YXRlLiBVc2luZyB0aGlzLCB3ZSBjcmVhdGVkIGEgY2FsY3VsYXRlZCBmaWVsZCB0aGF0IGdpdmVzIHRoZSByYXRpbyBvZiBtYWxlcyB0byBmZW1hbGVzIGluIGVhY2ggc3RhdGUuIFRoZSBmb2xsb3dpbmcgdmlzdWFsaXphdGlvbiBhdHRlbXB0cyB0byBmaW5kIGEgdHJlbmQgaW4gdmlzaXRzIGJ5IGdlbmRlciBicmVha2Rvd24sIHRob3VnaCBub25lIGlzIGltbWVkaWF0ZWx5IG9idmlvdXM6CjxjZW50ZXI+IVtdKC4uLzAzIFZpc3VhbGl6YXRpb25zL1RhYmxlYXVGaW5hbDExLnBuZyk8L2NlbnRlcj4KCiMqKkRhdGEuV29ybGQgUHVsbCBhbmQgRVRMIE9wZXJhdGlvbnMqKgpXaXRoIG91ciBUYWJsZWF1IGFuYWx5c2lzIGNvbXBsZXRlLCB3ZSBwdWxsZWQgdGhlIGRhdGEgaW50byBSIFN0dWRpby4KCiMjKipEYXRhLldvcmxkIFB1bGxzKioKRmlyc3QsIG91ciBpbml0aWFsIE5hdGlvbmFsIFBhcmtzIFZpc2l0cyBkYXRhIHdhcyBwdWxsZWQ6CmBgYHtyIE5hdFZpc1B1bGx9CnNvdXJjZSgiLi4vMDEgRGF0YS9wckVUTE5hdFZpc1B1bGwuUiIpCmBgYAoKTmV4dCwgdGhlIENlbnN1cyBEYXRhIGlzIHB1bGxlZDoKYGBge3IgY2Vuc3VzUHVsbH0Kc291cmNlKCIuLi8wMSBEYXRhL2NlbnN1c1B1bGwuUiIpCmBgYAoKRmluYWxseSwgdGhlIExhdGl0dWRlIGFuZCBMb25naXR1ZGUgaW5mb3JtYXRpb24gaXMgcHVsbGVkOgpgYGB7ciBzdGF0ZUxhdExvbmdQdWxsLlJ9CnNvdXJjZSgiLi4vMDEgRGF0YS9zdGF0ZUxhdExvbmdQdWxsLlIiKQpgYGAKCiMjKipFVEwqKgpPdXIgZmluYWwgdGFzayBpcyB0byBwZXJmb3JtIEVUTCBvcGVyYXRpb25zLiBUaGlzIGluY2x1ZGVzIHRoZSByZW1vdmFsIG9mIGJsYW5rIGRhdGEsIGFzIHdlbGwgYXMgY2hhcmFjdGVyIGZvcm1hdHRpbmcgdG8gYmV0dGVyIG1lZXQgb3VyIG5lZWRzIGZvciBmdXJ0aGVyIHZpc3VhbGl6YXRpb24gaW4gUi4KYGBge3IgRVRMfQpzb3VyY2UoIi4uLzAxIERhdGEvbmF0VmlzRVRMLlIiKQpgYGAKClRoZSBFVEwgc2NyaXB0IGlzIGF2YWlsYWJsZSB0byB2aWV3IGluICIwMSBEYXRhLCIgb3IgYXMgYW4gaW1hZ2UgW2hlcmVdKGh0dHA6Ly9pLmltZ3VyLmNvbS96azZsWVhJLnBuZykuCgojKipJbnRlcmVzdGluZyBWaXN1YWxpemF0aW9ucyoqCiMjKioxOiBNYXNzaXZlIFN1Y2Nlc3Mgb2YgIk1pc3Npb24gNjYiKioKPGNlbnRlcj4hW10oLi4vMDMgVmlzdWFsaXphdGlvbnMvRmluYWxUYWJsZWF1MVt2aWN0b3JdLnBuZyk8L2NlbnRlcj4KCk9mIG5vdGUgaGVyZTogZmlyc3QsICoqTmF0aW9uYWwgUGFyayB2aXNpdHMgYWN0dWFsbHkgZ3JldyBkdXJpbmcgdGhlIEdyZWF0IERlcHJlc3Npb24gYW5kIEdyZWF0IFJlY2Vzc2lvbiwgaW5kaWNhdGluZyB0aGF0IHZpc2l0cyB0byB0aGVzZSBwYXJrcyBhcmVuJ3QgY29uc2lkZXJlZCBkaXNjcmV0aW9uYXJ5IHNwZW5kaW5nLioqIEFkZGl0aW9uYWxseSwgaXQgY291bGQgYmUgdGhhdCBhIHBvb3IgZWNvbm9teSBoYXMgY29uc3VtZXJzIHNjcmFtYmxpbmcgdG8gZmluZCBjaGVhcGVyIHZhY2F0aW9ucywgYW5kIE5hdGlvbmFsIFBhcmtzIGZpbGwgdGhhdCByb2xlLiBMYXN0bHksIHN0cmVzcyBkdXJpbmcgZGlmZmljdWx0IGVjb25vbWljIHRpbWVzIG1heSBzcHVyIHBlb3BsZSB0byB3YW50IHRvIGJlIG91dGRvb3JzIGFuZCBlbmpveSBuYXR1cmUuCgpIb3dldmVyLCB0aGUgbW9zdCBpbnRlcmVzdGluZyBhc3BlY3Qgb2YgdGhpcyBpcyB0aGUgbWFzc2l2ZSBncm93dGggZXhwZXJpZW5jZWQgaW4gTmF0aW9uYWwgUGFya3MgdmlzaXRzIGR1cmluZyAiTWlzc2lvbiA2Ni4iICoqTWlzc2lvbiA2NiBpbnZvbHZlZCBhIG1hc3NpdmUgYW1vdW50IG9mIGluZnJhc3RydWN0dXJlIGNyZWF0aW9uIHRvIG1ha2UgcGFya3MgbW9yZSBhY2Nlc3NpYmxlLioqIEluIGFkZGl0aW9uIHRvIHJvYWRzIGFuZCB0cmFpbHMsIGl0IGFsc28gZnVuZGVkIHRoZSBjcmVhdGlvbiBvZiBjYW1waW5nIGFuZCBob3VzaW5nIHNpdGVzLCBhbmQgYWxzbyBhbiBhZHZlcnRpc2luZyBjYW1wYWlnbiB0aGF0IHByb21vdGVkIHRoZSBuYXR1cmFsIGJlYXV0eSBvZiB0aGVzZSBwYXJrcyB0byBjaXRpemVucyBhY3Jvc3MgdGhlIGNvdW50cnkuCgojIyoqMjogTW9zdCBQb3B1bGFyIFN0YXRlcyBXaXRoIE1vc3QgUG9wdWxhciBQYXJrcyoqCjxjZW50ZXI+IVtdKC4uLzAzIFZpc3VhbGl6YXRpb25zL0ZpbmFsVGFibGVhdTMucG5nKTwvY2VudGVyPgoKVGhpcyB2aXN1YWxpemF0aW9uIGhpZ2hsaWdodHMgc3RhdGVzIHdpdGggcGFya3MgdGhhdCBoYXZlIGNvbWJpbmVkIHZpc2l0cyBiZXR3ZWVuIDE5MDQtMjAxNiBncmVhdGVyIHRoYW4gMTAwIE1pbGxpb24sIGFuZCB0aGVuIGxpc3RzIHRoZSBzaW5nbGUgbW9zdCB2aXNpdGVkIHBhcmsgd2l0aGluIHRoYXQgc3RhdGUgKGluIHNvbWUgY2FzZXMsIHN1Y2ggYXMgQ2FsaWZvcm5pYSwgdGhlcmUgYXJlIG11bHRpcGxlIHBhcmtzIHdpdGggdmlzaXRzIGdyZWF0ZXIgdGhhbiAxMDAgTWlsbGlvbikuCgojIyoqMzogVmlzaXRzIHRvIFBvcHVsYXRpb24gUmF0aW8qKgo8Y2VudGVyPiFbXSguLi8wMyBWaXN1YWxpemF0aW9ucy9UYWJsZWF1RmluYWwxMi5wbmcpPC9jZW50ZXI+CgpUaGlzIHZpc3VhbGl6YXRpb24gc2hvd3MgdmlzaXRzIGJ5IHN0YXRlLCBmaWx0ZXJlZCBieSB5ZWFyLCBhbmQgY29sb3JlZCBieSB0aGUgcmF0aW8gb2YgKip2aXNpdHMgdG8gc3RhdGUgcG9wdWxhdGlvbioqLiBUaGUgZ29hbCBoZXJlIGlzIHRvIGlkZW50aWZ5IHN0YXRlcyBvciBhcmVhcyB0aGF0IGJyaW5nIGluIHZhc3RseSBtb3JlIHZpc2l0b3JzIHRoYW4gdGhlaXIgcG9wdWxhdGlvbnMuIFdhc2hpbmd0b24sIEQuQy4sIGEgY2l0eSB3aXRoIGEgcG9wdWxhdGlvbiBvZiBhcHByb3hpbWF0ZWx5IDY3MCwwMDAgcGVvcGxlLCBkcmF3cyBhbG1vc3QgNTUgdGltZXMgaXRzIHBvcHVsYXRpb24gaW4gdmlzaXRvcnMgdG8gaXRzIE5hdGlvbmFsIFBhcmtzIGFuZCBNb251bWVudHMuIEFub3RoZXIgc3RhdGUgd2hlcmUgdGhpcyBvY2N1cnMgaXMgV3lvbWluZywgd2hpY2ggZHJhd3MgbmVhcmx5IDE3IHRpbWVzIGl0cyBwb3B1bGF0aW9uIGluIHZpc2l0cy4gCgojKipTaGlueSBEZXBsb3ltZW50KioKV2UgdG9vayB0aGUgLkNTViBmaWxlcyBwcm9kdWNlZCBpbiBvdXIgYWJvdmUgRVRMIGFuZCBQdWxsIG9wZXJhdGlvbnMsIGFuZCBpbiB0dXJuIFt1cGxvYWRlZCB0aGVtIHRvIERhdGEuV29ybGRdKGh0dHBzOi8vZGF0YS53b3JsZC9qb25hdGhhbmtraXplci9zLTE3LWR2LWZpbmFsLXByb2plY3QpLiBGcm9tIHRoZXJlLCBvdXIgU2hpbnkgYXBwIHVzZXMgU1FMIHRvIHF1ZXJ5IHJlbGV2YW50IGRhdGEgdG8gY3JlYXRlIGEgdmFyaWV0eSBvZiB2aXN1YWxpemF0aW9ucyBpbiBSLiBPdXIgW1NoaW55IGRlcGxveW1lbnRdKGh0dHBzOi8vam9uYXRoYW5raXplci5zaGlueWFwcHMuaW8vRFZGaW5hbC8pIGRpc3BsYXlzIHRoZSBzdGVwcyB0YWtlbiB0byByZWFjaCB0aGUgaW50ZXJlc3RpbmcgdmlzdWFsaXphdGlvbnMu